home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
math
/
lenritu.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
415b
|
15 lines
10 CLS
20 PRINT "連立方程式の計算 aX+bY=c"
30 PRINT " dX+eY=f"
40 INPUT "a=",XA:INPUT "b=",YA:INPUT "c=",ZA
50 INPUT "d=",X2:INPUT "e=",Y2:INPUT "f=",Z2
60 PRINT XA"X+"YA"Y="ZA
70 PRINT X2"X+"Y2"Y="Z2
80 X1=-XA : X1=X1/YA : Z1=ZA/YA
90 X2=-X2 : X2=X2/Y2 : Z2=Z2/Y2
100 X3=X1-X2 : Z3=Z2-Z1
110 X=Z3/X3
120 Y=(-XA*X+ZA)/YA
130 PRINT "X="X",Y="Y
140 A$=INKEY$:IF A$="" THEN 140 ELSE 10